home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / bbs / mxgui203.zip / MAXDOOR.INC < prev    next >
Text File  |  1997-08-12  |  3KB  |  94 lines
  1. PROCEDURE FDemo_Max;
  2. BEGIN
  3.   MaxCommand('');
  4.   MaxCommand(' ');
  5.   MaxCommand(' ~² ');
  6.   MaxCommand(' ~Ç138,116,502,273,5,''Entry Field Example'' ');
  7.   MaxCommand(' ~Ä169,148,1,2,''Your Name:'' ');
  8.   MaxCommand(' ~â240,146,2,30,1,'''' ');
  9.   MaxCommand(' ~Ä145,174,1,2,''Your Password:'' ');
  10.   MaxCommand(' ~â240,171,4,20,1,'''' ');
  11.   MaxCommand(' ~Ä179,199,1,2,''Birthdate:'' ');
  12.   MaxCommand(' ~â240,196,3,8,1,'''' ');
  13.   MaxCommand(' ~Ä245,200,15,3,''##/##/##'' ');
  14.   MaxCommand(' ~Ä164,223,1,2,''Voice Phone:'' ');
  15.   MaxCommand(' ~â240,221,3,12,1,'''' ');
  16.   MaxCommand(' ~Ä245,225,15,3,''###-###-####'' ');
  17.   MaxCommand(' ~Ä168,248,1,2,''Data Phone:'' ');
  18.   MaxCommand(' ~â240,246,3,12,1,'''' ');
  19.   MaxCommand(' ~Ä245,250,15,3,''###-###-####'' ');
  20.   MaxCommand(' ~é369,246,60,24,1,4,''Okay'' ');
  21.   MaxCommand(' ~é435,246,60,16,1,29,''Quit'' ');
  22.   MaxCommand(' ~■ ');
  23. END;
  24.  
  25. PROCEDURE FResults_Max;
  26. BEGIN
  27.   MaxCommand('');
  28.   MaxCommand(' ');
  29.   MaxCommand(' ~² ');
  30.   MaxCommand(' ~Ç138,116,502,273,5,''Entry Field Results'' ');
  31.   MaxCommand(' ~Ä169,148,1,2,''Your Name:'' ');
  32.   MaxCommand(' ~Ä145,174,1,2,''Your Password:'' ');
  33.   MaxCommand(' ~Ä179,199,1,2,''Birthdate:'' ');
  34.   MaxCommand(' ~Ä164,223,1,2,''Voice Phone:'' ');
  35.   MaxCommand(' ~Ä168,248,1,2,''Data Phone:'' ');
  36.   MaxCommand(CvtVars(' ~Å241,148,15,0,2,''{INSERT1}'' '));
  37.   MaxCommand(CvtVars(' ~Å241,174,15,0,2,''{INSERT2}'' '));
  38.   MaxCommand(CvtVars(' ~Å241,199,15,0,2,''{INSERT3}'' '));
  39.   MaxCommand(CvtVars(' ~Å241,223,15,0,2,''{INSERT4}'' '));
  40.   MaxCommand(CvtVars(' ~Å241,248,15,0,2,''{INSERT5}'' '));
  41.   MaxCommand(' ~é435,246,60,13,1,4,''Okay'' ');
  42.   MaxCommand(' ~■ ');
  43. END;
  44.  
  45. PROCEDURE PDemo_Max;
  46. BEGIN
  47.   MaxCommand('');
  48.   MaxCommand(' ');
  49.   MaxCommand(' ~² ');
  50.   MaxCommand(' ~Ç205,131,484,326,1,''PickList Example'' ');
  51.   MaxCommand(' ~¿215,161,10,30 ');
  52.   MaxCommand(' ~ò''Apples'' ');
  53.   MaxCommand(' ~ò''Oranges'' ');
  54.   MaxCommand(' ~ò''Cherries'' ');
  55.   MaxCommand(' ~ò''Pears'' ');
  56.   MaxCommand(' ~ò''Strawberries'' ');
  57.   MaxCommand(' ~ò''Grapes'' ');
  58.   MaxCommand(' ~ò''Cranberries'' ');
  59.   MaxCommand(' ~ò''Peaches'' ');
  60.   MaxCommand(' ~ò''Blueberries'' ');
  61.   MaxCommand(' ~ò''Pineapples'' ');
  62.   MaxCommand(' ~ò''Hmmm, a hidden one'' ');
  63.   MaxCommand(' ~û ');
  64.   MaxCommand(' ~é214,297,80,31,1,4,''Select'' ');
  65.   MaxCommand(' ~é335,297,140,16,1,29,''Quit'' ');
  66.   MaxCommand(' ~■ ');
  67. END;
  68.  
  69. PROCEDURE PResults_Max;
  70. BEGIN
  71.   MaxCommand('');
  72.   MaxCommand(' ');
  73.   MaxCommand(' ~² ');
  74.   MaxCommand(' ~Ç160,171,475,246,1,''PickList Results'' ');
  75.   MaxCommand(' ~Ä169,201,1,2,''PickList Item #:'' ');
  76.   MaxCommand(CvtVars(' ~Å262,201,15,0,2,''{INSERT1}'' '));
  77.   MaxCommand(' ~Ä182,221,1,2,''PickList Text:'' ');
  78.   MaxCommand(CvtVars(' ~Å262,221,15,0,2,''{INSERT2}'' '));
  79.   MaxCommand(' ~é406,217,60,24,1,4,''Okay'' ');
  80.   MaxCommand(' ~■ ');
  81. END;
  82.  
  83. PROCEDURE PortDemo_Max;
  84. BEGIN
  85.   MaxCommand('');
  86.   MaxCommand(' ');
  87.   MaxCommand(' ~² ');
  88.   MaxCommand(' ~Ç160,175,494,257,5,''Text View Port Example'' ');
  89.   MaxCommand(' ~é361,229,60,13,1,39,''More'' ');
  90.   MaxCommand(' ~é427,229,60,81,1,29,''Quit'' ');
  91.   MaxCommand(' ~║167,206,40,1 ');
  92.   MaxCommand(' ~■ ');
  93. END;
  94.